﻿Imports System.Data.OleDb

Public Class Egresado
    Private Conexion As New OleDb.OleDbConnection("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Facultad;Data Source=RAMONS-LAPTOP\SQLEXPRESS")
    Public Sub RegistrarEgresado(ByVal paramDniAlumno As String, ByVal paramExpediente As String, ByVal paramFecha As String)

        Dim comando As New OleDb.OleDbCommand() 'Este objeto se encarga de ejecutar consultas sql a la base de datos
        comando.CommandType = CommandType.StoredProcedure 'El comando ejecutará un procedimiento almacenado
        comando.Connection = Me.Conexion 'Indicamos al objeto comando a donde se conectará a través del objeto Conexion

        comando.CommandText = "insertEgresado" 'El nombre del procedimiento almacenado
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramNroExpediente", paramExpediente)) 'Agregamos a la colección de parámetros los parametros que necesita el procedimiento almacenad
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramDniAlumno", paramDniAlumno))
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramFecha", paramFecha))

        Conexion.Open() 'Abrimos la conexion a la base de datos
        comando.ExecuteNonQuery() 'Ejecutamos la consulta SQL. No devuelve valores, ya que es un insert
        MsgBox("Registrado Exitosamente", MsgBoxStyle.OkOnly, "Aviso")
        Conexion.Close() 'Cerramos la conexion
    End Sub

    Public Sub RegistrarInfoAcad(ByVal paramDniAlumno As String, ByVal paramNombreInstitucion As String, ByVal paramTitulo As String, ByVal paramFecha As String)

        Dim comando As New OleDb.OleDbCommand() 'Este objeto se encarga de ejecutar consultas sql a la base de datos
        comando.CommandType = CommandType.StoredProcedure 'El comando ejecutará un procedimiento almacenado
        comando.Connection = Me.Conexion 'Indicamos al objeto comando a donde se conectará a través del objeto Conexion

        comando.CommandText = "insertInformacionAcademica" 'El nombre del procedimiento almacenado
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramDniAlumno", paramDniAlumno))
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramNombreInstitucion", paramNombreInstitucion))
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramTituloPosgrado", paramTitulo))
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramFechaObtencion", paramFecha))

        Conexion.Open() 'Abrimos la conexion a la base de datos
        comando.ExecuteNonQuery() 'Ejecutamos la consulta SQL. No devuelve valores, ya que es un insert
        MsgBox("Registrado Exitosamente", MsgBoxStyle.OkOnly, "Aviso")
        Conexion.Close() 'Cerramos la conexion
    End Sub

    Public Sub RegistrarInfoLab(ByVal paramDniAlumno As String, ByVal paramEmpresa As String, ByVal paramPuesto As String, ByVal paramFunciones As String, ByVal paramAntig As String)

        Dim comando As New OleDb.OleDbCommand() 'Este objeto se encarga de ejecutar consultas sql a la base de datos
        comando.CommandType = CommandType.StoredProcedure 'El comando ejecutará un procedimiento almacenado
        comando.Connection = Me.Conexion 'Indicamos al objeto comando a donde se conectará a través del objeto Conexion

        comando.CommandText = "insertInformacionLaboral" 'El nombre del procedimiento almacenado
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramDniAlumno", paramDniAlumno))
        comando.Parameters.Add(New OleDb.OleDbParameter("@parameEmpresa", paramEmpresa))
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramPuesto", paramPuesto))
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramPrincipalesFunciones", paramFunciones))
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramAntiguedad", paramAntig))

        Conexion.Open() 'Abrimos la conexion a la base de datos
        comando.ExecuteNonQuery() 'Ejecutamos la consulta SQL. No devuelve valores, ya que es un insert
        MsgBox("Registrado Exitosamente", MsgBoxStyle.OkOnly, "Aviso")
        Conexion.Close() 'Cerramos la conexion
    End Sub

End Class
